home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / nickused.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  441b  |  16 lines
  1. /* ORC - TRAP autoselects a new nick if one is already in use      */
  2. /* /alias <password> trap1----001 nickused.rexx 433                  */
  3. options results
  4. parse arg orcport a1
  5.  
  6. if show('P', orcport) then do
  7.   address value orcport
  8.     cnetircvar f
  9.     parse var result conn +1 away +1 reg +1 .
  10.     if conn == '+' & reg == '-' then do
  11.       cnetirccmd '/"*!* TRAP Auto-Selecting new nickname'
  12.       cnetirccmd '/nick newnick'
  13.     end
  14. end
  15.  
  16.